home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
89xx
/
8908.d64
/
replace move
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
868b
|
38 lines
10 IFL=.THENL=1:LOAD"REPL C000",8,1
20 SYS49152
30 PRINT"[147]ANTIREPLACE WRITTEN BY WERNER HUNGER '89"
40 :
50 PRINT"WO SOLL DIE NEUE ROUTINE LIEGEN"
60 INPUT"(HEX-ADR)";H$:PRINT
70 IFLEFT$(H$,1)="$"THENH$=RIGHT$(H$,LEN(H$)-1)
80 IFLEN(H$)<>4THENPRINT"4 STELLEN !":FORX=.TO500:NEXT:RUN30
90 A$=H$:GOSUB300:AD=A:GOSUB350
100 F$="@:REPL "+H$+"/"+STR$(AD)+",P,W":PRINT:PRINT
110 OPEN1,8,2,F$:PRINT#1,CHR$(L)CHR$(H);
120 A=AD-49152:GOSUB350:FL=L:FH=H
130 READW
140 FORX=0TO176
150 A=PEEK(49152+X)
160 IFX<>WTHEN260
170 READW
180 IFHLTHEN220
190 A=A+FL:IFA>255THENA=A-256:UE=1
200 IFA<.THENA=A+256:UE=-1
210 GOTO250
220 A=A+FH+UE:UE=.
230 IFA>255THENA=A-256
240 IFA<.THENA=A+256
250 HL=NOT HL
260 PRINT#1,CHR$(A);
270 PRINT176-X"[157] [145]":NEXT
280 CLOSE1:END
290 :
300 A1$=LEFT$(A$,2):GOSUB310:A=E*256:A1$=RIGHT$(A$,2):GOSUB310:A=A+E:RETURN
310 A2$=LEFT$(A1$,1):GOSUB330:E=A1*16:A2$=RIGHT$(A1$,1):GOSUB330:E=E+A1
320 RETURN
330 A1=ASC(A2$)-48:IFA1>9THENA1=A1-7
340 RETURN
350 H=INT(A/256):L=A-H*256:RETURN
360 :
370 DATA1,3,11,13,27,28,49,51,68,69,76,77,88,89,105,106,118,119,151,152,0